SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO


CREATE  Procedure [dbo].[SP_TTPROC_INLO_Q01]  
/*---------------------------------------------------------*/  
/*---Empresa              : OFISIS S.A.                  --*/  
/*---Cliente              : Ofisis                       --*/  
/*---Sistema              : Interfase                    --*/  
/*---M¢dulo               : Empresa                      --*/  
/*---Programa             : Interface Contable log¡stica --*/  
/*---Script               : TTPROC_INLO                  --*/  
/*---Nombre SP            : SP_TTPROC_INLO_Q01           --*/  
/*---Desarrollado por     : Gianmarco Lindo Huertas      --*/  
/*---Fecha Creaci¢n       : 07/08/2001                   --*/  
/*---Base Datos           : Microsoft Sql Server         --*/  
/*---Versi¢n              : 8.0                          --*/  
/*---Invoca a SP          :                              --*/  
/*---------------------------------------------------------*/  
/*---------------------------------------------------------*/  
/*---Modificado 1 por     :Percy D¡az                    --*/  
/*---Fecha Modificaci¢n   :24/11/2003                    --*/   
/*---Detalle Modificaci¢n :Se cambi¢ la validaci¢n con   --*/  
/*---la moneda de movimiento                             --*/  
/*---------------------------------------------------------*/  
  
/*---------------------------------------------------------*/  
/*---Comentarios                                         --*/  
/*--- Determina los Montos Origen y Contables            --*/  
/*--- que ser n insertados en el Voucher                 --*/  
/*---------------------------------------------------------*/  
/*---------------------------------------------------------*/  
/*--- Drop Proc SP_TTPROC_INLO_Q01                       --*/  
/*---Grant all on SP_TTPROC_INLO_Q01 to public           --*/   
/*---SP_TTPROC_INLO_Q01 '01' , 1, 1, '03/01/1999',       --*/  
/*--- '03/31/1999', 'N', 1, 0, 0, NULL , NULL            --*/  
/*---------------------------------------------------------*/  
@ISCO_MONE_MOVI   TD_VC_003,        /* Moneda del Movimiento                    */  
@ISCO_MONE_CNTA   TD_VC_003,        /* Moneda de la Cuenta                      */  
@ISCO_MONE_CNTB   TD_VC_003,        /* Moneda de la Contabilidad                */  
@ISCO_MONE_NACI   TD_VC_003,        /* Moneda Nacional                          */  
@IID_MONE         TD_VC_001,        /* Flag que indica si respeta moneda de Cta */  
@INFA_CAMB        TD_NU_015_006,    /* Factor de Conversi¢n                     */  
@INIM_MOVI        TD_NU_016_004,    /* Importe Movimiento                       */  
@ONIM_MVTO_ORIG   TD_NU_016_004 OUTPUT, /* Importe Movimiento Origen Cuenta Contable*/  
@ONIM_MVTO_CNTB   TD_NU_016_004 OUTPUT, /* Importe Movimiento Contable              */  
@OSCO_MONE_ASTO   TD_VC_003 OUTPUT  /* Moneda Asiento                           */  

As  
Begin   
  Select @ONIM_MVTO_ORIG = 0.00  
  Select @ONIM_MVTO_CNTB = 0.00  
  
  -- Setea Moneda Asiento --  
  If @IID_MONE = 'S'  
    Select @OSCO_MONE_ASTO = @ISCO_MONE_CNTA  
  Else  
    Select @OSCO_MONE_ASTO = @ISCO_MONE_MOVI  
  
  -- Setea Monto Origen --  
  If @IID_MONE = 'N' Or @ISCO_MONE_MOVI = @ISCO_MONE_CNTA  
   Select @ONIM_MVTO_ORIG = @INIM_MOVI  
  Else  
  Begin  
    If @ISCO_MONE_CNTA = @ISCO_MONE_NACI  
      Select @ONIM_MVTO_ORIG = Round( ( @INIM_MOVI * @INFA_CAMB ), 2 )  
    Else  
      Select @ONIM_MVTO_ORIG = Round( ( @INIM_MOVI / @INFA_CAMB ), 2 )  
  End  
  
  -- Setea Monto Contable --  
  If @ISCO_MONE_MOVI = @ISCO_MONE_CNTA  
  Begin  
    If @ISCO_MONE_MOVI = @ISCO_MONE_CNTB  
       Select @ONIM_MVTO_CNTB = @INIM_MOVI  
    Else  
    Begin  
      If @ISCO_MONE_CNTB = @ISCO_MONE_NACI  
         Select @ONIM_MVTO_CNTB = Round( ( @INIM_MOVI * @INFA_CAMB ), 2 )  
      Else  
         Select @ONIM_MVTO_CNTB = Round( ( @INIM_MOVI / @INFA_CAMB ), 2 )  
    End  
  End  
  Else  
  Begin  
---    If @ISCO_MONE_CNTA = @ISCO_MONE_CNTB  se cambio
    If @ISCO_MONE_MOVI = @ISCO_MONE_CNTB  
      Select @ONIM_MVTO_CNTB = @ONIM_MVTO_ORIG  
    Else  
    Begin  
      If @ISCO_MONE_CNTB = @ISCO_MONE_NACI  
        Select @ONIM_MVTO_CNTB = Round( ( @ONIM_MVTO_ORIG * @INFA_CAMB ), 2 )  
      Else  
        Select @ONIM_MVTO_CNTB = Round( ( @ONIM_MVTO_ORIG / @INFA_CAMB ), 2 )  
    End  
  End  
End  
/*------------------------------ Fin -------------------------------*/
-----------------------------------------------------------
-- Type: Stored Procedure
-- Name: SP_TTPROC_INLO_Q02
-----------------------------------------------------------



GO
